home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON608.TS / ICON608.TS
Encoding:
Text File  |  1993-04-01  |  1.3 KB  |  54 lines
  1. unit    icon608:10    $$ vector graphics/text block
  2. 608        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 296) $and$ (ztouchy > 115) $and$ (ztouchx < 455) $and$ (ztouchy < 210)))
  7. .       calc    TOUCHBOX _ 0
  8. .       jump    icon611
  9. endif
  10. if      ((zkey = touch $and$ (ztouchx > 392) $and$ (ztouchy > 58) $and$ (ztouchx < 508) $and$ (ztouchy < 75)))
  11. .       calc    TOUCHBOX _ 1
  12. .       do      dctnry
  13. .       branch  608
  14. endif
  15. style   outline
  16. style   thickness,1
  17. style   dash  $$ solid line style
  18. if      zkey = "a"
  19. .       do      menukey1
  20. .       branch  608
  21. endif
  22. if      zkey = "r"
  23. .       do      menukey1
  24. .       branch  608
  25. endif
  26. if      zkey = "q"
  27. .       do      menukey1
  28. .       branch  608
  29. endif
  30. if      zkey = "b"
  31. .       do      menukey1
  32. .       branch  608
  33. endif
  34. if      zkey = "o"
  35. .       do      menukey1
  36. .       branch  608
  37. endif
  38. if      zkey = "n"
  39. .       do      menukey1
  40. .       branch  608
  41. endif
  42. if      zkey = "f"
  43. .       do      menukey1
  44. .       branch  608
  45. endif
  46. if      zkey = "h"
  47. .       do      menukey1
  48. .       branch  608
  49. endif
  50. jump    [zkey = timeup : icon611 : ]
  51. branch  608   $$ not valid input - get again
  52. 608end
  53. disable touch
  54.